InfoMagic Internet Tools 1993 July/Internet Tools.iso/RockRidge/info-service/gopher/Unix/gopher1.12/make.com

Text File | 1993-01-08 | 406 b | 26 lines

$ IF P1 .EQS. ""
$ THEN
$    type/nopage sys$input:
     Usage:
        @make UCX
        @make WOLLONGONG
        @make MULTINET
$    exit
$ ENDIF
$!
$ ON CONTROL_Y THEN GOTO CLEANUP
$ ON ERROR THEN GOTO CLEANUP
$ verify = f$verify(1)
$ set default [.object]
$ @compile 'P1'
$ @link 'P1'
$!
$ set default [-.gopher]
$ @compile 'P1'
$ @link 'P1'
$ set default [-]
$!
$ CLEANUP:
$    verify = f$verify(verify)
$exit